home *** CD-ROM | disk | FTP | other *** search
/ CyberMycha Extra 2004 January / CyberMycha Extra 1-2004 (Poland) (Disc 2).bin / Pippi / ingm.dir / 00013_qtSprite_SN&GL.ls < prev    next >
Encoding:
Text File  |  2001-03-01  |  569 b   |  31 lines
  1. property meSprite, meMember, gm, xloaded
  2. global sessionObject, monkey
  3.  
  4. on beginSprite me
  5.   xloaded = 0
  6.   meSprite = sprite(me.spriteNum)
  7.   meMember = meSprite.member
  8.   gm = the frameLabel
  9. end
  10.  
  11. on exitFrame me
  12.   if meSprite.movieRate = 0 then
  13.     if xloaded = 0 then
  14.       meSprite.movieRate = 1
  15.       xloaded = 1
  16.     else
  17.       goOn(me)
  18.     end if
  19.   end if
  20. end
  21.  
  22. on goOn me
  23.   if monkey.monkeyRunning = 0 then
  24.     if meSprite.movieRate = 0 then
  25.       xFrame = string(sessionObject.getFrame(gm))
  26.       monkey.traceMonkey()
  27.       go("2", "gm" & gm)
  28.     end if
  29.   end if
  30. end
  31.